home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / hypercar / xcmd / proglib.sit / Resource Library / card_7098.txt < prev    next >
Text File  |  1989-05-28  |  12KB  |  508 lines
  1. -- card: 7098 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 4000
  4. -- background id: 6603
  5. -- name: Add
  6. ----- HyperTalk script -----
  7. on idle
  8.   global runHilite
  9.  
  10.   if runHilite and not (visible of msg) then
  11.     if visible of card field "Types" is true then
  12.       highlight A, F1, F7
  13.     else
  14.       highlight A, F1
  15.     end if
  16.   end if
  17.   put not runHilite into runHilite
  18. end idle
  19.  
  20. on InitAdd
  21.   put "" into card field File
  22.   put "" into card field List
  23.   put "" into card field Select
  24.   put "" into card field Name
  25.   put "" into card field "resType"
  26.   put "" into card field "Types"
  27.   set the visible of card button "Copy ICN# -> ICON" to false
  28. end InitAdd
  29.  
  30. on Update
  31.   if highlight of card button "Other:" is false then
  32.     set visible of card field "resType" to false
  33.     set visible of card field "Types" to false
  34.     put "" into card field "HighlightAreas"
  35.   end if
  36.   if card field resType = "ICN#" then
  37.     if the visible of card button "Copy ICN# -> ICON" = false then
  38.       set the visible of card button "Copy ICN# -> ICON" to true
  39.       put "" into card field "HighlightAreas"
  40.     end if
  41.   else
  42.     if the visible of card button "Copy ICN# -> ICON" = true then
  43.       set the visible of card button "Copy ICN# -> ICON" to false
  44.       put "" into card field "HighlightAreas"
  45.     end if
  46.   end if
  47.   ResHandle "list", card field "File", card field resType
  48.   put SortLines(the result) into card field "List"
  49.   set scroll of card field "List" to 0
  50.   put "" into card field "Select"
  51. end Update
  52.  
  53.  
  54.  
  55. -- part 1 (button)
  56. -- low flags: 00
  57. -- high flags: A003
  58. -- rect: left=11 top=107 right=129 bottom=80
  59. -- title width / last selected line: 0
  60. -- icon id / first selected line: 0 / 0
  61. -- text alignment: 1
  62. -- font id: 0
  63. -- text size: 12
  64. -- style flags: 0
  65. -- line height: 16
  66. -- part name: Open╔
  67. ----- HyperTalk script -----
  68. on mouseUp
  69.   if the optionKey is down then
  70.     put StandardFile("get") into theTarget
  71.   else
  72.     put StandardFile("get", "STAK", "XCMD", "APPL", "rsrc", "FNDR") into theTarget
  73.   end if
  74.   if theTarget is empty then
  75.     beep 1
  76.     answer "Request canceled." with "OK"
  77.   else
  78.     put theTarget into card field File
  79.     put StripPath(theTarget) into card field Name
  80.     if highlight of card button "Other:" is true then
  81.       put "" into card field "List"
  82.       send mouseUp to card button "Other:"
  83.     else
  84.       Update
  85.     end if
  86.   end if
  87. end mouseUp
  88.  
  89.  
  90.  
  91. -- part 4 (button)
  92. -- low flags: 00
  93. -- high flags: 8006
  94. -- rect: left=289 top=201 right=219 bottom=346
  95. -- title width / last selected line: 0
  96. -- icon id / first selected line: 0 / 0
  97. -- text alignment: 1
  98. -- font id: 0
  99. -- text size: 12
  100. -- style flags: 0
  101. -- line height: 16
  102. -- part name: XFCN
  103. ----- HyperTalk script -----
  104. on mouseUp
  105.   set the highlight of card button (card field resButton) to false
  106.   set the highlight of the target to true
  107.   put the short name of the target into tmp
  108.   put tmp into card field resType
  109.   put tmp into card field resButton
  110.   Update
  111. end mouseUp
  112.  
  113.  
  114.  
  115. -- part 5 (button)
  116. -- low flags: 00
  117. -- high flags: 8006
  118. -- rect: left=289 top=141 right=159 bottom=346
  119. -- title width / last selected line: 0
  120. -- icon id / first selected line: 0 / 0
  121. -- text alignment: 1
  122. -- font id: 0
  123. -- text size: 12
  124. -- style flags: 0
  125. -- line height: 16
  126. -- part name: ICON
  127. ----- HyperTalk script -----
  128. on mouseUp
  129.   set the highlight of card button (card field resButton) to false
  130.   set the highlight of the target to true
  131.   put the short name of the target into tmp
  132.   put tmp into card field resType
  133.   put tmp into card field resButton
  134.   Update
  135. end mouseUp
  136.  
  137.  
  138.  
  139. -- part 6 (field)
  140. -- low flags: 00
  141. -- high flags: 0007
  142. -- rect: left=100 top=140 right=238 bottom=275
  143. -- title width / last selected line: 0
  144. -- icon id / first selected line: 0 / 0
  145. -- text alignment: 0
  146. -- font id: 3
  147. -- text size: 12
  148. -- style flags: 0
  149. -- line height: 16
  150. -- part name: List
  151. ----- HyperTalk script -----
  152. on mouseUp
  153.   put ClickLine() into elem
  154.   put line ClickLine() of card field "List" into tmp
  155.   if tmp <> "" then
  156.     put tmp into card field "Select"
  157.   end if
  158. end mouseUp
  159.  
  160.  
  161.  
  162. -- part 7 (field)
  163. -- low flags: 00
  164. -- high flags: 0002
  165. -- rect: left=99 top=271 right=288 bottom=256
  166. -- title width / last selected line: 0
  167. -- icon id / first selected line: 0 / 0
  168. -- text alignment: 0
  169. -- font id: 3
  170. -- text size: 12
  171. -- style flags: 0
  172. -- line height: 16
  173. -- part name: Select
  174.  
  175.  
  176. -- part 3 (button)
  177. -- low flags: 00
  178. -- high flags: 8006
  179. -- rect: left=289 top=181 right=199 bottom=346
  180. -- title width / last selected line: 0
  181. -- icon id / first selected line: 0 / 0
  182. -- text alignment: 1
  183. -- font id: 0
  184. -- text size: 12
  185. -- style flags: 0
  186. -- line height: 16
  187. -- part name: XCMD
  188. ----- HyperTalk script -----
  189. on mouseUp
  190.   set the highlight of card button (card field resButton) to false
  191.   set the highlight of the target to true
  192.   put the short name of the target into tmp
  193.   put tmp into card field resType
  194.   put tmp into card field resButton
  195.   Update
  196. end mouseUp
  197.  
  198.  
  199.  
  200. -- part 8 (field)
  201. -- low flags: 80
  202. -- high flags: 0000
  203. -- rect: left=41 top=24 right=60 bottom=321
  204. -- title width / last selected line: 0
  205. -- icon id / first selected line: 0 / 0
  206. -- text alignment: 65535
  207. -- font id: 3
  208. -- text size: 12
  209. -- style flags: 0
  210. -- line height: 16
  211. -- part name: File
  212.  
  213.  
  214. -- part 9 (field)
  215. -- low flags: 80
  216. -- high flags: 0000
  217. -- rect: left=337 top=31 right=51 bottom=418
  218. -- title width / last selected line: 0
  219. -- icon id / first selected line: 0 / 0
  220. -- text alignment: 0
  221. -- font id: 3
  222. -- text size: 12
  223. -- style flags: 0
  224. -- line height: 16
  225. -- part name: resButton
  226.  
  227.  
  228. -- part 11 (button)
  229. -- low flags: 00
  230. -- high flags: 8006
  231. -- rect: left=289 top=161 right=179 bottom=346
  232. -- title width / last selected line: 0
  233. -- icon id / first selected line: 0 / 0
  234. -- text alignment: 1
  235. -- font id: 0
  236. -- text size: 12
  237. -- style flags: 0
  238. -- line height: 16
  239. -- part name: snd 
  240. ----- HyperTalk script -----
  241. on mouseUp
  242.   set the highlight of card button (card field resButton) to false
  243.   set the highlight of the target to true
  244.   put the short name of the target into tmp
  245.   put tmp into card field resType
  246.   put tmp into card field resButton
  247.   Update
  248. end mouseUp
  249.  
  250.  
  251.  
  252. -- part 17 (button)
  253. -- low flags: 00
  254. -- high flags: A003
  255. -- rect: left=12 top=254 right=306 bottom=92
  256. -- title width / last selected line: 0
  257. -- icon id / first selected line: 22308 / 22308
  258. -- text alignment: 1
  259. -- font id: 0
  260. -- text size: 12
  261. -- style flags: 0
  262. -- line height: 16
  263. -- part name: Copy
  264. ----- HyperTalk script -----
  265. on mouseUp
  266.   global External_Error, StackName
  267.   put card field "Select" into resname
  268.   if resname <> "" then
  269.     ResHandle "copy", card field "File", StackName, (card field resType), resname
  270.     if "ok" is in External_Error then
  271.       AddCard (card field resType), (the result)
  272.     end if
  273.   else
  274.     answer "You must select something first!" with "Oops!"
  275.   end if
  276. end mouseUp
  277.  
  278.  
  279.  
  280. -- part 22 (field)
  281. -- low flags: 00
  282. -- high flags: 0004
  283. -- rect: left=100 top=111 right=131 bottom=277
  284. -- title width / last selected line: 0
  285. -- icon id / first selected line: 0 / 0
  286. -- text alignment: 0
  287. -- font id: 3
  288. -- text size: 12
  289. -- style flags: 0
  290. -- line height: 16
  291. -- part name: Name
  292.  
  293.  
  294. -- part 23 (field)
  295. -- low flags: 80
  296. -- high flags: 0007
  297. -- rect: left=94 top=24 right=88 bottom=326
  298. -- title width / last selected line: 0
  299. -- icon id / first selected line: 0 / 0
  300. -- text alignment: 0
  301. -- font id: 3
  302. -- text size: 12
  303. -- style flags: 0
  304. -- line height: 16
  305. -- part name: HighlightAreas
  306.  
  307.  
  308. -- part 34 (field)
  309. -- low flags: 00
  310. -- high flags: 0007
  311. -- rect: left=353 top=140 right=221 bottom=412
  312. -- title width / last selected line: 0
  313. -- icon id / first selected line: 0 / 0
  314. -- text alignment: 0
  315. -- font id: 0
  316. -- text size: 12
  317. -- style flags: 0
  318. -- line height: 16
  319. -- part name: Types
  320. ----- HyperTalk script -----
  321. on mouseUp
  322.   put ClickLine() into elem
  323.   put line ClickLine() of card field "Types" into tmp
  324.   if tmp <> "" then
  325.     put tmp into card field "resType"
  326.     Update
  327.   end if
  328. end mouseUp
  329.  
  330.  
  331.  
  332. -- part 35 (field)
  333. -- low flags: 00
  334. -- high flags: 0002
  335. -- rect: left=353 top=220 right=237 bottom=396
  336. -- title width / last selected line: 0
  337. -- icon id / first selected line: 0 / 0
  338. -- text alignment: 0
  339. -- font id: 0
  340. -- text size: 12
  341. -- style flags: 0
  342. -- line height: 16
  343. -- part name: resType
  344.  
  345.  
  346. -- part 33 (button)
  347. -- low flags: 00
  348. -- high flags: C006
  349. -- rect: left=289 top=221 right=239 bottom=351
  350. -- title width / last selected line: 0
  351. -- icon id / first selected line: 0 / 0
  352. -- text alignment: 1
  353. -- font id: 0
  354. -- text size: 12
  355. -- style flags: 0
  356. -- line height: 16
  357. -- part name: Other:
  358. ----- HyperTalk script -----
  359. on mouseUp
  360.   set the highlight of card button (card field resButton) to false
  361.   set the highlight of the target to true
  362.   put the short name of the target into card field resButton
  363.   put "" into card field "List"
  364.   set the visible of card button "Copy ICN# -> ICON" to false
  365.   ResHandle "type", card field "File"
  366.   put the result into q
  367.   put SortLines(q) into card field "Types"
  368.   set the scroll of card field "Types" to zero
  369.   put "" into card field resType
  370.   set the visible of card field "resType" to true
  371.   set the visible of card field "Types" to true
  372.   put "" into card field "HighlightAreas"
  373. end mouseUp
  374.  
  375.  
  376.  
  377. -- part 37 (button)
  378. -- low flags: 80
  379. -- high flags: 8003
  380. -- rect: left=264 top=255 right=307 bottom=360
  381. -- title width / last selected line: 0
  382. -- icon id / first selected line: 19381 / 19381
  383. -- text alignment: 1
  384. -- font id: 0
  385. -- text size: 12
  386. -- style flags: 0
  387. -- line height: 16
  388. -- part name: Copy ICN# -> ICON
  389. ----- HyperTalk script -----
  390. on mouseUp
  391.   global External_Error, StackName
  392.   put card field "Select" into resname
  393.   if resname <> "" then
  394.     ResHandle "icon", card field "File", StackName, resname
  395.     if "ok" is in External_Error then
  396.       AddCard "ICON", (the Result)
  397.     end if
  398.   else
  399.     answer "You must select something first!" with "Oops!"
  400.   end if
  401. end mouseUp
  402.  
  403.  
  404.  
  405. -- part 39 (button)
  406. -- low flags: 00
  407. -- high flags: 8006
  408. -- rect: left=289 top=121 right=139 bottom=346
  409. -- title width / last selected line: 0
  410. -- icon id / first selected line: 0 / 0
  411. -- text alignment: 1
  412. -- font id: 0
  413. -- text size: 12
  414. -- style flags: 0
  415. -- line height: 16
  416. -- part name: CURS
  417. ----- HyperTalk script -----
  418. on mouseUp
  419.   set the highlight of card button (card field resButton) to false
  420.   set the highlight of the target to true
  421.   put the short name of the target into tmp
  422.   put tmp into card field resType
  423.   put tmp into card field resButton
  424.   Update
  425. end mouseUp
  426.  
  427.  
  428.  
  429. -- part 40 (button)
  430. -- low flags: 00
  431. -- high flags: A003
  432. -- rect: left=11 top=161 right=213 bottom=91
  433. -- title width / last selected line: 0
  434. -- icon id / first selected line: 22308 / 22308
  435. -- text alignment: 1
  436. -- font id: 0
  437. -- text size: 12
  438. -- style flags: 0
  439. -- line height: 16
  440. -- part name: Copy All
  441. ----- HyperTalk script -----
  442. on mouseUp
  443.   global External_Error, StackName
  444.  
  445.   put card field "resType" into resType
  446.   answer "Copy all the" && resType && "resources?" with "Ok" or "Cancel"
  447.   if it = "Cancel" then exit mouseUp
  448.  
  449.   put "copy" into command
  450.   if resType = "ICN#" then
  451.     answer "Copy ICN#s asΓǪ" with "ICN#s" or "ICONs"
  452.     if it = "ICONs" then put "icon" into command
  453.   end if
  454.  
  455.   put card field "List" into todo
  456.   put card field "File" into file
  457.   repeat while todo <> ""
  458.     put line one of todo into resname
  459.     delete line one of todo
  460.     if command = "copy" then
  461.       ResHandle "copy", file, StackName, resType, resname
  462.     else
  463.       ResHandle "icon", file, StackName, resname
  464.     end if
  465.     if "ok" is in External_Error then
  466.       if command = "icon" then
  467.         AddCard "ICON", (the Result)
  468.       else
  469.         AddCard resType, (the Result)
  470.       end if
  471.     else
  472.       answer "Copy failed" with "OK"
  473.     end if
  474.   end repeat
  475. end mouseUp
  476.  
  477.  
  478.  
  479. -- part contents for card part 9
  480. ----- text -----
  481. Other:
  482.  
  483. -- part contents for background part 9
  484. ----- text -----
  485. Add Card
  486.  
  487. -- part contents for card part 23
  488. ----- text -----
  489. 19
  490. 475 26 504 59 opaq 1
  491. 475 60 504 93 opaq 2
  492. 424 163 505 185 roun 3
  493. 424 221 505 243 roun 4
  494. 424 192 505 214 roun 5
  495. 424 105 505 127 roun 6
  496. 471 300 502 331 opaq 7
  497. 424 134 505 156 roun 8
  498. 12 108 78 127 roun -1
  499. 289 201 346 219 radi -2
  500. 289 141 346 159 radi -3
  501. 289 181 346 199 radi -4
  502. 289 161 346 179 radi -5
  503. 13 255 90 304 roun -6
  504. 289 221 351 239 radi -7
  505. 289 121 346 139 radi -9
  506. 12 162 89 211 roun -10
  507. 101 141 258 237 scro -1 16
  508. 354 141 395 220 scro -7 16